home *** CD-ROM | disk | FTP | other *** search
- global gTextLanguage, gSoundLevel, gOldTextLanguage, gIndexChange, gContenuChange, gHighLightPos, gHighLightPosC, gFlushDialogEvent, gReturnDialog
-
- on exitFrame
- go(the frame)
- end
-
- on keyDown
- if the key = " " then
- if not (soundBusy(0) or soundBusy(1)) then
- beep()
- end if
- end if
- if the machineType = 256 then
- keyDown_PC()
- else
- keyDown_MAC()
- end if
- end
-
- on mouseDown
- repeat while the mouseDown
- nothing()
- end repeat
- ResetLanguagePaletteButtons()
- end
-
- on keyDown_PC
- set SpriteNums to [22, 21, 23, 26, 25, 27]
- set CastNames to ["I.ac.", "I.ac.", "I.ac.", "T.ac.", "T.ac.", "T.ac."]
- if (the keyCode = 48) and the shiftDown then
- repeat with i = 1 to 6
- set SpriteNo to getAt(SpriteNums, i)
- set CastNo to the castNum of sprite SpriteNo
- if the name of cast CastNo starts getAt(CastNames, i) then
- set TempNum to the castNum of sprite SpriteNo - 1
- set the castNum of sprite SpriteNo to TempNum
- if i = 1 then
- set the visible of sprite 30 to 0
- set the visible of sprite 39 to 1
- else
- set TempNum to the castNum of sprite getAt(SpriteNums, i - 1) + 1
- set the castNum of sprite getAt(SpriteNums, i - 1) to TempNum
- end if
- updateStage()
- return
- end if
- end repeat
- if the visible of sprite 39 then
- set the visible of sprite 39 to 0
- set the visible of sprite 30 to 1
- return
- end if
- if the visible of sprite 30 then
- set the visible of sprite 30 to 0
- set TempNum to the castNum of sprite getAt(SpriteNums, 6) + 1
- set the castNum of sprite getAt(SpriteNums, 6) to TempNum
- end if
- updateStage()
- return
- end if
- if the keyCode = 48 then
- repeat with i = 1 to 6
- set SpriteNo to getAt(SpriteNums, i)
- set CastNo to the castNum of sprite SpriteNo
- if the name of cast CastNo starts getAt(CastNames, i) then
- set TempNum to the castNum of sprite SpriteNo - 1
- set the castNum of sprite SpriteNo to TempNum
- if i = 6 then
- set the visible of sprite 39 to 0
- set the visible of sprite 30 to 1
- else
- set TempNum to the castNum of sprite getAt(SpriteNums, i + 1) + 1
- set the castNum of sprite getAt(SpriteNums, i + 1) to TempNum
- end if
- return
- end if
- end repeat
- if the visible of sprite 30 then
- set the visible of sprite 30 to 0
- set the visible of sprite 39 to 1
- return
- end if
- if the visible of sprite 39 then
- set the visible of sprite 39 to 0
- set TempNum to the castNum of sprite getAt(SpriteNums, 1) + 1
- set the castNum of sprite getAt(SpriteNums, 1) to TempNum
- end if
- updateStage()
- return
- end if
- if (the key = ENTER) or (the key = RETURN) then
- repeat with i = 1 to 3
- set SpriteNo to getAt(SpriteNums, i)
- set CastNo to the castNum of sprite SpriteNo
- if the name of cast CastNo starts getAt(CastNames, i) then
- InterfaceChange(i)
- return
- end if
- end repeat
- repeat with i = 4 to 6
- set SpriteNo to getAt(SpriteNums, i)
- set CastNo to the castNum of sprite SpriteNo
- if the name of cast CastNo starts getAt(CastNames, i) then
- TextChange(i - 3)
- return
- end if
- end repeat
- if the visible of sprite 30 then
- if gReturnDialog = #HISTORY then
- set gFlushDialogEvent to 1
- end if
- flashButton(31)
- CancelLanguagePalette()
- dontPassEvent()
- abort()
- end if
- if the visible of sprite 39 then
- flashButton(40)
- if gReturnDialog = #HISTORY then
- set gFlushDialogEvent to 1
- end if
- if not (gTextLanguage = gOldTextLanguage) then
- set gIndexChange to 1
- set gContenuChange to 1
- end if
- CloseLangPrefPalettes()
- dontPassEvent()
- abort()
- end if
- end if
- if the controlDown then
- if the optionDown then
- if the key = "1" then
- InterfaceChange(1)
- else
- if the key = "2" then
- InterfaceChange(2)
- else
- if the key = "3" then
- InterfaceChange(3)
- end if
- end if
- end if
- else
- if the key = "1" then
- TextChange(1)
- else
- if the key = "2" then
- TextChange(2)
- else
- if the key = "3" then
- TextChange(3)
- end if
- end if
- end if
- end if
- end if
- if the keyCode = 53 then
- flashButton(31)
- CancelLanguagePalette()
- end if
- if the keyCode = 123 then
- set gSoundLevel to gSoundLevel - 1
- if gSoundLevel < 0 then
- set gSoundLevel to 0
- end if
- setSound()
- beep()
- updateStage()
- ResetLanguagePaletteButtons()
- return
- end if
- if the keyCode = 124 then
- set gSoundLevel to gSoundLevel + 1
- if gSoundLevel > 7 then
- set gSoundLevel to 7
- end if
- setSound()
- beep()
- ResetLanguagePaletteButtons()
- updateStage()
- return
- end if
- end
-
- on keyDown_MAC
- if the optionDown then
- if the key = "¡" then
- InterfaceChange(1)
- else
- if the key = "Γäó" then
- InterfaceChange(2)
- else
- if the key = "£" then
- InterfaceChange(3)
- end if
- end if
- end if
- else
- if the key = "1" then
- TextChange(1)
- else
- if the key = "2" then
- TextChange(2)
- else
- if the key = "3" then
- TextChange(3)
- else
- if the key = "." then
- flashButton(31)
- CancelLanguagePalette()
- end if
- end if
- end if
- end if
- end if
- if (the key = ENTER) or (the key = RETURN) then
- if gReturnDialog = #HISTORY then
- set gFlushDialogEvent to 1
- end if
- flashButton(40)
- if not (gTextLanguage = gOldTextLanguage) then
- set gIndexChange to 1
- set gContenuChange to 1
- end if
- CloseLangPrefPalettes()
- end if
- end
-